*** empty log message ***

diff --git a/lisp/uniquify.el b/lisp/uniquify.el
index c07dd57af4e99c2e70c47572d3a278d069e23252..4d4f755aa6a0b4fdceef3b21cf9fa5f55c4889ee 100644 (file)
--- a/lisp/uniquify.el
+++ b/lisp/uniquify.el
@@ -192,7 +192,8 @@ It actually holds the list of `uniquify-item's corresponding to the conflict.")
 ;; Used in desktop.el to save the non-uniquified buffer name
 (defun uniquify-buffer-base-name ()
   "Return the base name of the current buffer.
-Return nil if the buffer is not managed by uniquify."
+Return nil if the buffer is not managed by uniquify,
+or if the base name is empty."
   (and uniquify-managed
        (let ((base (uniquify-item-base (car uniquify-managed))))
         (if (string= base "") nil base))))